object PageAttrForm: TPageAttrForm Left = 262 Top = 265 BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'Page Attributes' ClientHeight = 356 ClientWidth = 521 Font.Color = clBtnText Font.Height = -12 Font.Name = 'Arial' Font.Style = [] Position = poScreenCenter Scaled = False OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 15 object OkBtn: TBitBtn Left = 256 Top = 320 Width = 81 Height = 28 Caption = 'OK' Default = True TabOrder = 2 OnClick = OkBtnClick Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333300033333333333000B0330000300000E00030BFB70FBFB0 E0003000000BFBF0E00030BFB70FBFB0E0003000000BFBF0E00030BFB70F0FB0 E00030000000FBF0E00030BFB700BFB0E0003300000BFB0000003333330FB033 33333333330B033333333333330F833333333333333083333333} end object CancelBtn: TBitBtn Left = 344 Top = 320 Width = 81 Height = 28 Cancel = True Caption = 'Cancel' ModalResult = 2 TabOrder = 3 Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333808333 33333333330F833333333333330B033330003333330FB03000B03380000BFB00 E000330FBFBFBFB0E000330087FBFBF0E000330FBFBFBFB0E000330087FBFBF0 E000330FBFBFBFB0E000330087FBFBF0E000330FBFBFBFB0E000338000000000 0000333333333333333333333333333333333333333333333333} end object PageControl: TPageControl Left = 8 Top = 8 Width = 504 Height = 305 ActivePage = General TabOrder = 0 object General: TTabSheet Caption = 'General Settings' object Label3: TLabel Left = 8 Top = 16 Width = 58 Height = 15 Caption = 'Page &Title:' FocusControl = PageTitle end object GroupBox1: TGroupBox Left = 8 Top = 48 Width = 481 Height = 141 Caption = 'Page Background' TabOrder = 1 object Bevel5: TBevel Left = 2 Top = 100 Width = 477 Height = 39 Align = alBottom Shape = bsTopLine end object FillBtn: TSpeedButton Left = 158 Top = 28 Width = 25 Height = 25 Glyph.Data = { F6010000424DF601000000000000760000002800000030000000100000000100 0400000000008001000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777777777777777777777777777777777777777777777 777777777777777777777777777707777777777777777777777777777777F777 77777777777F00777777777777770777777777777770FF777777777777FFF007 77777777777F70777777777777000FF7777777777FFFFF007777777777F7F707 77777777700000FF77777777FFFFFFF0077777777F7F7F70777777770000000F F777777FFFFFFFFF00777777F7F7F7F70777777000000000FF7777FFFFFFFFFF F777777F7F7F7F7F7777770000000000077777777FFFFF077777777777F7F707 77777777700000F7777777777FFFFF07777777777F7F7F7777777777700000F7 777777777FFFFF077777777777F7F70777777777700000F7777777777FFFFF07 777777777F7F7F7777777777700000F7777777777FFFFF777777777777F7F777 7777777770000077777777777777777777777777777777777777777777777777 7777777777777777777777777777777777777777777777777777} NumGlyphs = 3 OnClick = FillBtnClick end object BrowseBtn: TSpeedButton Left = 442 Top = 59 Width = 25 Height = 25 Glyph.Data = { E6000000424DE6000000000000007600000028000000100000000E0000000100 0400000000007000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00111111111111 11111110000000000111110BBBBBBBBBB011110BBBBBBBBBB011110BBBBBBBBB B011110BBBBBBBBBB011110BBBBBBBBBB011110BBBBBBBBBB011110BBBBBBBBB B011110BBBBBBBBBB011110BBBBB0000001111100000BBBBB011111111110000 01111111111111111111} OnClick = BrowseBtnClick end object FillPanel: TPanel Left = 100 Top = 28 Width = 55 Height = 24 BevelOuter = bvLowered TabOrder = 1 object FillColorBox: TNeoBookColorBox Left = 1 Top = 1 Width = 53 Height = 22 Align = alClient Color = clWhite ParentColor = False TransParent = False end end object ColorBtn: TRadioButton Left = 12 Top = 32 Width = 85 Height = 17 Caption = '&Solid Color:' Checked = True TabOrder = 0 TabStop = True end object WallpaperBtn: TRadioButton Left = 12 Top = 64 Width = 77 Height = 17 Caption = '&Wallpaper:' TabOrder = 2 end object ImageFile: TEdit Left = 100 Top = 60 Width = 339 Height = 23 TabOrder = 3 OnChange = ImageFileChange end object MasterPageBtn: TCheckBox Left = 12 Top = 112 Width = 189 Height = 17 Caption = 'Show Items from &Master Page' TabOrder = 4 end end object PageTitle: TEdit Left = 70 Top = 12 Width = 418 Height = 23 MaxLength = 35 TabOrder = 0 end object GroupBox2: TGroupBox Left = 8 Top = 200 Width = 481 Height = 61 Caption = 'Special Effects' TabOrder = 2 object Label1: TLabel Left = 12 Top = 28 Width = 77 Height = 15 Alignment = taRightJustify Caption = 'Display &Effect:' FocusControl = EffectList end object Label2: TLabel Left = 256 Top = 28 Width = 39 Height = 15 Caption = 'Spee&d:' end object Label9: TLabel Left = 304 Top = 40 Width = 37 Height = 14 AutoSize = False Caption = 'Fast' Font.Color = clBtnText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label10: TLabel Left = 426 Top = 40 Width = 39 Height = 14 Alignment = taRightJustify AutoSize = False Caption = 'Slow' Font.Color = clBtnText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object EffectList: TComboBox Left = 96 Top = 24 Width = 141 Height = 23 Style = csDropDownList ItemHeight = 15 TabOrder = 0 end object EffectSpeed: TTrackBar Left = 296 Top = 15 Width = 177 Height = 25 Ctl3D = True Orientation = trHorizontal ParentCtl3D = False Frequency = 1 Position = 0 SelEnd = 0 SelStart = 0 TabOrder = 1 TickMarks = tmBottomRight TickStyle = tsNone end end end object Action: TTabSheet Caption = 'Page Action' object ActionMemo: TMemo Left = 8 Top = 40 Width = 479 Height = 225 Font.Color = clWindowText Font.Height = -12 Font.Name = 'Courier New' Font.Style = [] ParentFont = False ScrollBars = ssBoth TabOrder = 0 OnChange = ActionMemoChange OnClick = ActionMemoChange OnDblClick = ActionMemoDblClick OnKeyUp = ActionMemoKeyUp OnMouseUp = ActionMemoMouseUp end object Panel3: TPanel Left = 8 Top = 8 Width = 481 Height = 32 BevelOuter = bvNone TabOrder = 1 object OpenBtn: TSpeedButton Left = 0 Top = 4 Width = 25 Height = 25 Hint = 'Import text from a file' Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333300003330000000000333333300003330788888880333333300003330 F77777780333333300003330F77777780333333300003330F997777803333333 00003330FFFFFFF7033333330000333000000000033333330000333333333333 33333333000033300333330000000033000033300333330FFFFFF03300003330 0303330F8888F033000033300800330FFFFFF033000033380000030F8888F033 000033338000030FFFFFF033000033333300330F88F00033000033333303330F FFF0033300003333333333000000333300003333333333333333333300003333 33333333333333330000} OnClick = OpenBtnClick end object SaveBtn: TSpeedButton Left = 26 Top = 4 Width = 25 Height = 25 Hint = 'Save text to a file' Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333300003333333300000000003300003333333307888888803300003333 33330F77777780330000333333330F77777780330000333333330F9977778033 0000333333330FFFFFFF70330000333333330000000000330000333333333333 3333333300003330000000033300333300003330FFFFFF033000033300003330 F8888F030000003300003330FFFFFF033300333300003330F8888F0333003333 00003330FFFFFF033800333300003330F88F00030008333300003330FFFF0033 0083333300003330000003333333333300003333333333333333333300003333 33333333333333330000} OnClick = SaveBtnClick end object PrintBtn: TSpeedButton Left = 52 Top = 4 Width = 25 Height = 25 Hint = 'Print text' Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333300003333333333333333333300003300033333333330003300003000 0000000000000003000030F77777777777777703000030F77777777777777703 000030F77777777777997703000030FFFFFFFFFFFFFFFF030000380088888888 88880083000033300000000000000333000033300FFFFFFFFFF0033300003333 0F00000000F03333000033330FFFFFFFFFF03333000033330F00000000F03333 000033330FFFFFFFFFF03333000033330F00FFFFFFF03333000033330FFFFFFF FFF0333300003333000000000000333300003333333333333333333300003333 33333333333333330000} OnClick = PrintBtnClick end object CutBtn: TSpeedButton Left = 82 Top = 4 Width = 25 Height = 25 Hint = 'Cut' Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777700007770000777777000077700007780FF00777700FF087700007780 77F077770F770877000077807770777707770877000077780770077807708777 0000777780000880000877770000777777000000007777770000777777700FF0 07777777000077777778000087777777000077777780FF0F0877777700007777 780FF00FF08777770000777780FF0770FF087777000077780FF077770FF08777 00007780FF07777770FF08770000780FF0777777770FF087000070FF07777777 7770FF07000070F07777777777770F0700007007777777777777700700007777 77777777777777770000} OnClick = CutBtnClick end object CopyBtn: TSpeedButton Left = 108 Top = 4 Width = 25 Height = 25 Hint = 'Copy' Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 77777777000077777770000000000777000077777770FFFFFFFF077700007777 7770BFBFBFBF0777000077777770F888888F0777000077777770BFBFBFBF0777 000077000000F888888F07770000770FFFF0BFBFBFBF07770000770FFFF0F888 888F07770000770F7770BFBFBFBF07770000770FFFF0FFFFFF0007770000770F 7770BFBFBF0077770000770FFFF00000000777770000770F777777F077777777 0000770FFFFFFFF0777777770000770FFFFFF000777777770000770FFFFFF007 7777777700007700000000777777777700007777777777777777777700007777 77777777777777770000} OnClick = CopyBtnClick end object PasteBtn: TSpeedButton Left = 134 Top = 4 Width = 25 Height = 25 Hint = 'Paste' Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333000033333333330000000003000033333333330F77777F0300003333 3333330F77777F03000033333333330F77777F03000030000000000F77777F03 000030FFFFFFFF0F77777F03000030FFFFFFFF0F77777F03000030FFFFFFFF0F 77777F03000030FFFFFFFF0F00000F03000030FFFFFF0FF001110033000030FF FFF000FF01110333000030FF0F000FFF80003333000030FF0000FFFF03333333 000030FF000FFFFF03333333000030FF0000F00003333333000030FFFFFFF0F0 33333333000030FFFFFFF0033333333300003000000000333333333300003333 33333333333333330000} OnClick = PasteBtnClick end object Deletebtn: TSpeedButton Left = 160 Top = 4 Width = 25 Height = 25 Hint = 'Delete' Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777700007770000000007777777700007770F88888807777777700007770 F07070807777777700007770F07080807777777700007770F070708077777777 00007770F07080807777777700007770F07070807777777700007070F0708080 7077777700007700F07070800777777700007770F07080807777777700007770 808080807777777700008070000000007777777700000F077777777777777777 0000807077777777777777780000780707777770887777770000707080777708 7F87778700007808080777808F87877700007780808077780877777700007777 78087777777777770000} OnClick = DeletebtnClick end object Label8: TLabel Left = 300 Top = 8 Width = 129 Height = 15 Alignment = taRightJustify Caption = 'Insert Action Command' end object NeoBookImage1: TNeoBookImage Left = 432 Top = 8 Width = 16 Height = 16 AutoSize = True Picture.Data = {} Transparent = True end object InsertActionBtn: TSpeedButton Left = 453 Top = 4 Width = 25 Height = 25 Hint = 'Select an Action Command from a list' Glyph.Data = { F6010000424DF601000000000000760000002800000030000000100000000100 0400000000008001000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777777777777777777777777777777777777777777777 777777777777777777777777777707777777777777777777777777777777F777 77777777777F00777777777777770777777777777770FF777777777777FFF007 77777777777F70777777777777000FF7777777777FFFFF007777777777F7F707 77777777700000FF77777777FFFFFFF0077777777F7F7F70777777770000000F F777777FFFFFFFFF00777777F7F7F7F70777777000000000FF7777FFFFFFFFFF F777777F7F7F7F7F7777770000000000077777777FFFFF077777777777F7F707 77777777700000F7777777777FFFFF07777777777F7F7F7777777777700000F7 777777777FFFFF077777777777F7F70777777777700000F7777777777FFFFF07 777777777F7F7F7777777777700000F7777777777FFFFF777777777777F7F777 7777777770000077777777777777777777777777777777777777777777777777 7777777777777777777777777777777777777777777777777777} Layout = blGlyphRight NumGlyphs = 3 OnClick = InsertActionBtnClick end object CursorPos: TLabel Left = 196 Top = 8 Width = 17 Height = 15 Caption = '1/1' end end end object Palette: TTabSheet Caption = 'Color Palette' object Label4: TLabel Left = 192 Top = 16 Width = 63 Height = 15 Alignment = taRightJustify AutoSize = False Caption = '&Red:' end object Label5: TLabel Left = 192 Top = 48 Width = 63 Height = 15 Alignment = taRightJustify AutoSize = False Caption = '&Green:' end object Label6: TLabel Left = 192 Top = 80 Width = 63 Height = 15 Alignment = taRightJustify AutoSize = False Caption = '&Blue:' end object Label7: TLabel Left = 192 Top = 112 Width = 63 Height = 15 Alignment = taRightJustify AutoSize = False Caption = 'Bright&ness:' end object Label12: TLabel Left = 192 Top = 155 Width = 63 Height = 15 Alignment = taRightJustify AutoSize = False Caption = 'Color #:' end object Bevel1: TBevel Left = 12 Top = 196 Width = 473 Height = 13 Shape = bsTopLine end object Panel1: TPanel Left = 12 Top = 12 Width = 169 Height = 169 TabOrder = 0 object PaintBox: TNeoBookPaintBox Left = 4 Top = 4 Width = 161 Height = 161 Color = clWhite ParentColor = False OnDragDrop = PaintBoxDragDrop OnDragOver = PaintBoxDragOver OnMouseDown = PaintBoxMouseDown OnPaint = PaintBoxPaint end end object RedBar: TScrollBar Left = 260 Top = 16 Width = 181 Height = 16 LargeChange = 4 Max = 255 TabOrder = 1 OnChange = RedBarChange OnScroll = RedBarScroll end object GreenBar: TScrollBar Left = 260 Top = 48 Width = 181 Height = 16 LargeChange = 4 Max = 255 TabOrder = 2 OnChange = GreenBarChange OnScroll = RedBarScroll end object BlueBar: TScrollBar Left = 260 Top = 80 Width = 181 Height = 16 LargeChange = 4 Max = 255 TabOrder = 3 OnChange = BlueBarChange OnScroll = RedBarScroll end object BrightnessBar: TScrollBar Left = 260 Top = 112 Width = 181 Height = 16 LargeChange = 4 Max = 255 TabOrder = 4 OnChange = BrightnessBarChange OnScroll = RedBarScroll end object Panel2: TPanel Left = 300 Top = 144 Width = 183 Height = 38 BevelInner = bvLowered BorderWidth = 3 TabOrder = 5 object ColorBox: TNeoBookColorBox Left = 5 Top = 5 Width = 173 Height = 28 Align = alClient Color = clRed ParentColor = False TransParent = False end end object RedIndex: TPanel Left = 446 Top = 15 Width = 37 Height = 18 BevelOuter = bvLowered Caption = '255' TabOrder = 6 end object GreenIndex: TPanel Left = 446 Top = 47 Width = 37 Height = 18 BevelOuter = bvLowered Caption = '255' TabOrder = 7 end object BlueIndex: TPanel Left = 446 Top = 79 Width = 37 Height = 18 BevelOuter = bvLowered Caption = '255' TabOrder = 8 end object BrightnessIndex: TPanel Left = 446 Top = 111 Width = 37 Height = 18 BevelOuter = bvLowered Caption = '255' TabOrder = 9 end object ColorIndex: TPanel Left = 259 Top = 144 Width = 37 Height = 37 BevelOuter = bvLowered Caption = '255' TabOrder = 10 end object ResetPaletteBtn: TBitBtn Left = 12 Top = 212 Width = 113 Height = 28 Caption = 'Reset &Palette' TabOrder = 11 OnClick = ResetPaletteBtnClick Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00111111111111 111111110000111111111111111111110000110000000000000000110000110B B0DD0990EE0BB0110000110BB0DD0990EE0BB011000011000000000000000011 0000110EE0770AA0CC0AA0110000110EE0770AA0CC0AA0110000110000000000 000000110000110AA0BB0CC0DD0EE0110000110AA0BB0CC0DD0EE01100001100 00000000000000110000110CC0660880770990110000110CC066088077099011 0000110000000000000000110000110EE0990CC0BB0DD0110000110EE0990CC0 BB0DD01100001100000000000000001100001111111111111111111100001111 11111111111111110000} Spacing = 2 end object ResetColorBtn: TBitBtn Left = 132 Top = 212 Width = 113 Height = 28 Caption = 'Re&set Color' TabOrder = 12 OnClick = ResetColorBtnClick Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00111111111111 111111110000111111111111111111110000110000000000000000110000110B B0DD0990EE0BB0110000110BB0DD0990EE0BB011000011000000000000000011 0000110EE0770AA0CC0AA0110000110E000000A0CC0AA011000011000BBBB000 000000110000110A0BBBB0C0DD0EE0110000110A0BBBB0C0DD0EE01100001100 0BBBB000000000110000110C00000080770990110000110CC066088077099011 0000110000000000000000110000110EE0990CC0BB0DD0110000110EE0990CC0 BB0DD01100001100000000000000001100001111111111111111111100001111 11111111111111110000} Spacing = 2 end object LoadPaletteBtn: TBitBtn Left = 252 Top = 212 Width = 113 Height = 28 Caption = '&Load Palette' TabOrder = 13 OnClick = LoadPaletteBtnClick Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333300003330000000000333333300003330788888880333333300003330 F77777780333333300003330F77777780333333300003330F997777803333333 00003330FFFFFFF7033333330000333000000000033333330000333333333333 33333333000033300333330000000033000033300333330FFFFFF03300003330 0303330F8888F033000033300800330FFFFFF033000033380000030F8888F033 000033338000030FFFFFF033000033333300330F88F00033000033333303330F FFF0033300003333333333000000333300003333333333333333333300003333 33333333333333330000} Spacing = 2 end object SavePaletteBtn: TBitBtn Left = 372 Top = 212 Width = 113 Height = 28 Caption = '&Save Palette' TabOrder = 14 OnClick = SavePaletteBtnClick Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333300003333333300000000003300003333333307888888803300003333 33330F77777780330000333333330F77777780330000333333330F9977778033 0000333333330FFFFFFF70330000333333330000000000330000333333333333 3333333300003330000000033300333300003330FFFFFF033000033300003330 F8888F030000003300003330FFFFFF033300333300003330F8888F0333003333 00003330FFFFFF033800333300003330F88F00030008333300003330FFFF0033 0083333300003330000003333333333300003333333333333333333300003333 33333333333333330000} Spacing = 2 end end end object CopyToAllBtn: TCheckBox Left = 8 Top = 326 Width = 129 Height = 17 Caption = '&Copy to All Pages...' TabOrder = 1 end object HelpBtn: TBitBtn Left = 432 Top = 320 Width = 81 Height = 28 Caption = '&Help' TabOrder = 4 OnClick = HelpBtnClick Glyph.Data = { 76010000424D760100000000000076000000280000001B000000100000000100 0400000000000001000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3300003333333330000033333333333300BFBF00333333300000333333333330 FBF00BFB03333330000033333333330FBFBFBFBFB0333330000033333333300B FBFBFBFBF003333000003333333000BFBFB00FBFBF00033000003333330BF0FB FB0BF0FBFB0BF03000003CC330BF80BF000FBF00BF08BF0000003CC330FBF0F0 FF00F0FF0B0BFB000000333330BF00B0F00FB0F00F00BF0000003CC3330030F0 000BF0000B03003000003CCC3333300F00BFBF00B00333300000333CC333330B FBF00BFBF03333300000CC3CC3333330BFBF0FBF033333300000CCCCC3333333 00FBFB003333333000003CCC3333333333000033333333300000} end object Timer: TTimer Interval = 500 OnTimer = TimerTimer Left = 156 Top = 314 end end